VERSION 1.0 CLASS
BEGIN
  MultiUse = -1  'True
  Persistable = 0  'NotPersistable
  DataBindingBehavior = 0  'vbNone
  DataSourceBehavior  = 0  'vbNone
  MTSTransactionMode  = 0  'NotAnMTSObject
END
Attribute VB_Name = "Pagador"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = False
Attribute VB_Ext_KEY = "SavedWithClassBuilder" ,"Yes"
Attribute VB_Ext_KEY = "Top_Level" ,"Yes"
Option Explicit

Private rsPagador As New ADODB.Recordset

'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
''
''  Pagador.cls
''  Implementation of the table Class Pagador
''  Generated by Enterprise Architect
''  Created on:      15-Abr-2009 08:04:02 p.m.
''  Original author: Administrador
''
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''



'Public m_PersonasTelefono As PersonasTelefono
'Public PK_TipoDocumento As TipoDocumento
'Public PK_EstadoCliente As EstadoPagador
Private m_pagCodigo As Integer
Private m_pagNumero As Integer
Private m_pagApellido As String
Private m_pagNombre As String
Private m_pagDomicilio As String
Private m_pagBarrio As String
Private m_pagLocalidad As String
Private m_pagDocumento As String
Private m_pagCUIT As String
Private m_pagJuicio As Boolean
Private m_pagActLaboral As String
Private m_pagEmpresa As String
Private m_pagLegajo As String
Private m_pagFechaNacimiento As Date
Private m_pagDomicilioEmpresa As String
Private m_pagTelefonoEmpresa As String
Private m_pagAntiguedadEmpleo As Integer
Private m_pagSueldo As Single
Private m_pagEstadoCivil As String
Private m_pagNombreConyugue As String
Private m_pagConyugueDocumento As String
Private m_pagActLaboralConyugue As String
Private m_pagEmpresaConyugue As String
Private m_pagFechaNacConyugue As Date
Private m_pagDomicilioPropiedad As String
Private m_pagTipoPropiedad As String
Private m_pagTipoTitularidad As String
Private m_pagAutomovil As String
Private m_pagPatenteAutomovil As String
Private m_pagGrupoFamiliar As String
Private m_pagPrestamosAnteriores As String
Private m_pagReferenciasPersonales As String
Private m_pagTelReferencia As String
Private m_pagObservaciones As String
Private m_pagNacionalidad As String
Private m_pagTpdCodigo As Integer
Private m_pagEstCodigo As Integer

Public Property Get pagCodigo() As Integer
    pagCodigo = m_pagCodigo
End Property
Public Property Let pagCodigo(ByVal inNew As Integer)
    If (m_pagCodigo = inNew) Then Exit Property
    m_pagCodigo = inNew
End Property

Public Property Get pagNumero() As Integer
    pagNumero = m_pagNumero
End Property
Public Property Let pagNumero(ByVal inNew As Integer)
    If (m_pagNumero = inNew) Then Exit Property
    m_pagNumero = inNew
End Property

Public Property Get pagApellido() As String
    pagApellido = m_pagApellido
End Property
Public Property Let pagApellido(ByVal inNew As String)
    If (m_pagApellido = inNew) Then Exit Property
    m_pagApellido = inNew
End Property

Public Property Get pagNombre() As String
    pagNombre = m_pagNombre
End Property
Public Property Let pagNombre(ByVal inNew As String)
    If (m_pagNombre = inNew) Then Exit Property
    m_pagNombre = inNew
End Property

Public Property Get pagDomicilio() As String
    pagDomicilio = m_pagDomicilio
End Property
Public Property Let pagDomicilio(ByVal inNew As String)
    If (m_pagDomicilio = inNew) Then Exit Property
    m_pagDomicilio = inNew
End Property

Public Property Get pagBarrio() As String
    pagBarrio = m_pagBarrio
End Property
Public Property Let pagBarrio(ByVal inNew As String)
    If (m_pagBarrio = inNew) Then Exit Property
    m_pagBarrio = inNew
End Property

Public Property Get pagLocalidad() As String
    pagLocalidad = m_pagLocalidad
End Property
Public Property Let pagLocalidad(ByVal inNew As String)
    If (m_pagLocalidad = inNew) Then Exit Property
    m_pagLocalidad = inNew
End Property

Public Property Get pagDocumento() As String
    pagDocumento = m_pagDocumento
End Property
Public Property Let pagDocumento(ByVal inNew As String)
    If (m_pagDocumento = inNew) Then Exit Property
    m_pagDocumento = inNew
End Property

Public Property Get pagCUIT() As String
    pagCUIT = m_pagCUIT
End Property
Public Property Let pagCUIT(ByVal inNew As String)
    If (m_pagCUIT = inNew) Then Exit Property
    m_pagCUIT = inNew
End Property

Public Property Get pagJuicio() As Boolean
    pagJuicio = m_pagJuicio
End Property
Public Property Let pagJuicio(ByVal inNew As Boolean)
    If (m_pagJuicio = inNew) Then Exit Property
    m_pagJuicio = inNew
End Property

Public Property Get pagActLaboral() As String
    pagActLaboral = m_pagActLaboral
End Property
Public Property Let pagActLaboral(ByVal inNew As String)
    If (m_pagActLaboral = inNew) Then Exit Property
    m_pagActLaboral = inNew
End Property

Public Property Get pagEmpresa() As String
    pagEmpresa = m_pagEmpresa
End Property
Public Property Let pagEmpresa(ByVal inNew As String)
    If (m_pagEmpresa = inNew) Then Exit Property
    m_pagEmpresa = inNew
End Property

Public Property Get pagLegajo() As String
    pagLegajo = m_pagLegajo
End Property
Public Property Let pagLegajo(ByVal inNew As String)
    If (m_pagLegajo = inNew) Then Exit Property
    m_pagLegajo = inNew
End Property

Public Property Get pagFechaNacimiento() As Date
    pagFechaNacimiento = m_pagFechaNacimiento
End Property
Public Property Let pagFechaNacimiento(ByVal inNew As Date)
    If (m_pagFechaNacimiento = inNew) Then Exit Property
    m_pagFechaNacimiento = inNew
End Property

Public Property Get pagDomicilioEmpresa() As String
    pagDomicilioEmpresa = m_pagDomicilioEmpresa
End Property
Public Property Let pagDomicilioEmpresa(ByVal inNew As String)
    If (m_pagDomicilioEmpresa = inNew) Then Exit Property
    m_pagDomicilioEmpresa = inNew
End Property

Public Property Get pagTelefonoEmpresa() As String
    pagTelefonoEmpresa = m_pagTelefonoEmpresa
End Property
Public Property Let pagTelefonoEmpresa(ByVal inNew As String)
    If (m_pagTelefonoEmpresa = inNew) Then Exit Property
    m_pagTelefonoEmpresa = inNew
End Property

Public Property Get pagAntiguedadEmpleo() As Integer
    pagAntiguedadEmpleo = m_pagAntiguedadEmpleo
End Property
Public Property Let pagAntiguedadEmpleo(ByVal inNew As Integer)
    If (m_pagAntiguedadEmpleo = inNew) Then Exit Property
    m_pagAntiguedadEmpleo = inNew
End Property

Public Property Get pagSueldo() As Single
    pagSueldo = m_pagSueldo
End Property
Public Property Let pagSueldo(ByVal inNew As Single)
    If (m_pagSueldo = inNew) Then Exit Property
    m_pagSueldo = inNew
End Property

Public Property Get pagEstadoCivil() As String
    pagEstadoCivil = m_pagEstadoCivil
End Property
Public Property Let pagEstadoCivil(ByVal inNew As String)
    If (m_pagEstadoCivil = inNew) Then Exit Property
    m_pagEstadoCivil = inNew
End Property

Public Property Get pagNombreConyugue() As String
    pagNombreConyugue = m_pagNombreConyugue
End Property
Public Property Let pagNombreConyugue(ByVal inNew As String)
    If (m_pagNombreConyugue = inNew) Then Exit Property
    m_pagNombreConyugue = inNew
End Property

Public Property Get pagConyugueDocumento() As String
    pagConyugueDocumento = m_pagConyugueDocumento
End Property
Public Property Let pagConyugueDocumento(ByVal inNew As String)
    If (m_pagConyugueDocumento = inNew) Then Exit Property
    m_pagConyugueDocumento = inNew
End Property

Public Property Get pagActLaboralConyugue() As String
    pagActLaboralConyugue = m_pagActLaboralConyugue
End Property
Public Property Let pagActLaboralConyugue(ByVal inNew As String)
    If (m_pagActLaboralConyugue = inNew) Then Exit Property
    m_pagActLaboralConyugue = inNew
End Property

Public Property Get pagEmpresaConyugue() As String
    pagEmpresaConyugue = m_pagEmpresaConyugue
End Property
Public Property Let pagEmpresaConyugue(ByVal inNew As String)
    If (m_pagEmpresaConyugue = inNew) Then Exit Property
    m_pagEmpresaConyugue = inNew
End Property

Public Property Get pagFechaNacConyugue() As Date
    pagFechaNacConyugue = m_pagFechaNacConyugue
End Property
Public Property Let pagFechaNacConyugue(ByVal inNew As Date)
    If (m_pagFechaNacConyugue = inNew) Then Exit Property
    m_pagFechaNacConyugue = inNew
End Property

Public Property Get pagDomicilioPropiedad() As String
    pagDomicilioPropiedad = m_pagDomicilioPropiedad
End Property
Public Property Let pagDomicilioPropiedad(ByVal inNew As String)
    If (m_pagDomicilioPropiedad = inNew) Then Exit Property
    m_pagDomicilioPropiedad = inNew
End Property

Public Property Get pagTipoPropiedad() As String
    pagTipoPropiedad = m_pagTipoPropiedad
End Property
Public Property Let pagTipoPropiedad(ByVal inNew As String)
    If (m_pagTipoPropiedad = inNew) Then Exit Property
    m_pagTipoPropiedad = inNew
End Property

Public Property Get pagTipoTitularidad() As String
    pagTipoTitularidad = m_pagTipoTitularidad
End Property
Public Property Let pagTipoTitularidad(ByVal inNew As String)
    If (m_pagTipoTitularidad = inNew) Then Exit Property
    m_pagTipoTitularidad = inNew
End Property

Public Property Get pagAutomovil() As String
    pagAutomovil = m_pagAutomovil
End Property
Public Property Let pagAutomovil(ByVal inNew As String)
    If (m_pagAutomovil = inNew) Then Exit Property
    m_pagAutomovil = inNew
End Property

Public Property Get pagPatenteAutomovil() As String
    pagPatenteAutomovil = m_pagPatenteAutomovil
End Property
Public Property Let pagPatenteAutomovil(ByVal inNew As String)
    If (m_pagPatenteAutomovil = inNew) Then Exit Property
    m_pagPatenteAutomovil = inNew
End Property

Public Property Get pagGrupoFamiliar() As String
    pagGrupoFamiliar = m_pagGrupoFamiliar
End Property
Public Property Let pagGrupoFamiliar(ByVal inNew As String)
    If (m_pagGrupoFamiliar = inNew) Then Exit Property
    m_pagGrupoFamiliar = inNew
End Property

Public Property Get pagPrestamosAnteriores() As String
    pagPrestamosAnteriores = m_pagPrestamosAnteriores
End Property
Public Property Let pagPrestamosAnteriores(ByVal inNew As String)
    If (m_pagPrestamosAnteriores = inNew) Then Exit Property
    m_pagPrestamosAnteriores = inNew
End Property

Public Property Get pagReferenciasPersonales() As String
    pagReferenciasPersonales = m_pagReferenciasPersonales
End Property
Public Property Let pagReferenciasPersonales(ByVal inNew As String)
    If (m_pagReferenciasPersonales = inNew) Then Exit Property
    m_pagReferenciasPersonales = inNew
End Property

Public Property Get pagTelReferencia() As String
    pagTelReferencia = m_pagTelReferencia
End Property
Public Property Let pagTelReferencia(ByVal inNew As String)
    If (m_pagTelReferencia = inNew) Then Exit Property
    m_pagTelReferencia = inNew
End Property

Public Property Get pagObservaciones() As String
    pagObservaciones = m_pagObservaciones
End Property
Public Property Let pagObservaciones(ByVal inNew As String)
    If (m_pagObservaciones = inNew) Then Exit Property
    m_pagObservaciones = inNew
End Property

Public Property Get pagNacionalidad() As String
    pagNacionalidad = m_pagNacionalidad
End Property
Public Property Let pagNacionalidad(ByVal inNew As String)
    If (m_pagNacionalidad = inNew) Then Exit Property
    m_pagNacionalidad = inNew
End Property

Public Property Get pagTpdCodigo() As Integer
    pagTpdCodigo = m_pagTpdCodigo
End Property
Public Property Let pagTpdCodigo(ByVal inNew As Integer)
    If (m_pagTpdCodigo = inNew) Then Exit Property
    m_pagTpdCodigo = inNew
End Property

Public Property Get pagEstCodigo() As Integer
    pagEstCodigo = m_pagEstCodigo
End Property
Public Property Let pagEstCodigo(ByVal inNew As Integer)
    If (m_pagEstCodigo = inNew) Then Exit Property
    m_pagEstCodigo = inNew
End Property

Public Sub abrirPagador()
    If rsPagador.State <> adStateClosed Then
        rsPagador.Close
    End If
    rsPagador.Open "select * from pagador", cn, adOpenKeyset, adLockOptimistic
End Sub

Public Sub abrirPagadorParticular()
    If rsPagador.State <> adStateClosed Then
        rsPagador.Close
    End If
    rsPagador.Open "select * from pagador where pagCodigo = " & m_pagCodigo, cn, adOpenKeyset, adLockOptimistic
End Sub


Public Function siguientePagador() As Boolean
    If rsPagador.State = adStateOpen Then
        rsPagador.MoveNext
        If Not rsPagador.EOF Then
            cargarPagador
            siguientePagador = True
        Else
            siguientePagador = False
        End If
    Else
        siguientePagador = False
    End If
End Function

Public Function anteriorPagador() As Boolean
    If rsPagador.State = adStateOpen Then
        rsPagador.MovePrevious
        If Not rsPagador.BOF Then
            cargarPagador
            anteriorPagador = True
        Else
            anteriorPagador = False
        End If
    Else
        anteriorPagador = False
    End If
End Function

Public Function primerPagador() As Boolean
    If rsPagador.State = adStateOpen Then
        If Not rsPagador.EOF And Not rsPagador.BOF Then
            rsPagador.MoveFirst
            cargarPagador
            primerPagador = True
        Else
            primerPagador = False
        End If
    Else
        primerPagador = False
    End If
End Function

Public Function ultimoPagador() As Boolean
    If rsPagador.State = adStateOpen Then
        If Not rsPagador.EOF And Not rsPagador.BOF Then
            rsPagador.MoveLast
            ultimoPagador = True
            cargarPagador
        Else
            ultimoPagador = False
        End If
    Else
        ultimoPagador = False
    End If
End Function

Public Sub cargarPagador()
 '   On Error GoTo ErrorHandler
    
    m_pagCodigo = rsPagador.Fields("pagCodigo")
    m_pagNumero = rsPagador.Fields("pagNumero")
    m_pagApellido = rsPagador.Fields("pagApellido")
    m_pagNombre = rsPagador.Fields("pagNombre")
    m_pagDomicilio = rsPagador.Fields("pagDomicilio")
    m_pagBarrio = rsPagador.Fields("pagBarrio")
    m_pagLocalidad = rsPagador.Fields("pagLocalidad")
    m_pagDocumento = rsPagador.Fields("pagDocumento")
    m_pagCUIT = rsPagador.Fields("pagCUIT")
    m_pagJuicio = rsPagador.Fields("pagJuicio")
    m_pagActLaboral = rsPagador.Fields("pagActLaboral")
    m_pagEmpresa = rsPagador.Fields("pagEmpresa")
    m_pagLegajo = rsPagador.Fields("pagLegajo")
    m_pagFechaNacimiento = rsPagador.Fields("pagFechaNacimiento")
    m_pagDomicilioEmpresa = rsPagador.Fields("pagDomicilioEmpresa")
    m_pagTelefonoEmpresa = rsPagador.Fields("pagTelefonoEmpresa")
    m_pagAntiguedadEmpleo = rsPagador.Fields("pagAntiguedadEmpleo")
    m_pagSueldo = rsPagador.Fields("pagSueldo")
    m_pagEstadoCivil = rsPagador.Fields("pagEstadoCivil")
    m_pagNombreConyugue = rsPagador.Fields("pagNombreConyugue")
    m_pagConyugueDocumento = rsPagador.Fields("pagConyugueDocumento")
    m_pagActLaboralConyugue = rsPagador.Fields("pagActLaboralConyugue")
    m_pagEmpresaConyugue = rsPagador.Fields("pagEmpresaConyugue")
    m_pagFechaNacConyugue = rsPagador.Fields("pagFechaNacConyugue")
    m_pagDomicilioPropiedad = rsPagador.Fields("pagDomicilioPropiedad")
    m_pagTipoPropiedad = rsPagador.Fields("pagTipoPropiedad")
    m_pagTipoTitularidad = rsPagador.Fields("pagTipoTitularidad")
    m_pagAutomovil = rsPagador.Fields("pagAutomovil")
    m_pagPatenteAutomovil = rsPagador.Fields("pagPatenteAutomovil")
    m_pagGrupoFamiliar = IIf(IsNull(rsPagador.Fields("pagGrupoFamiliar")), "", rsPagador.Fields("pagGrupoFamiliar"))
    m_pagPrestamosAnteriores = IIf(IsNull(rsPagador.Fields("pagPrestamosAnteriores")), "", rsPagador.Fields("pagPrestamosAnteriores"))
    m_pagReferenciasPersonales = IIf(IsNull(rsPagador.Fields("pagReferenciasPersonales")), "", rsPagador.Fields("pagReferenciasPersonales"))
    m_pagTelReferencia = IIf(IsNull(rsPagador.Fields("pagTelReferencia")), "", rsPagador.Fields("pagTelReferencia"))
    m_pagObservaciones = IIf(IsNull(rsPagador.Fields("pagObservaciones")), "", rsPagador.Fields("pagObservaciones"))
    m_pagNacionalidad = rsPagador.Fields("pagNacionalidad")
    m_pagTpdCodigo = IIf(IsNull(rsPagador.Fields("pagTpdCodigo")), 0, rsPagador.Fields("pagTpdCodigo"))
    m_pagEstCodigo = rsPagador.Fields("pagEstCodigo")
    
'    rsPagador.Close
'ErrorHandler:
    'If Err <> 0 Then
    '    MsgBox Err.Source & "-->" & Err.Description, , "Error"
    'End If
End Sub


Public Function crearPagador(Optional ByRef mensaje As String) As Boolean
    'If Not IsEmpty(carpaNombre) Then
    Dim strInsert As String
    
    strInsert = "insert Into pagador (pagNumero, pagApellido, pagNombre, pagDomicilio, " _
        & " pagBarrio, pagLocalidad, pagDocumento, pagCUIT, pagJuicio, pagActLaboral, pagEmpresa, " _
        & " pagLegajo, pagFechaNacimiento, pagDomicilioEmpresa, pagTelefonoEmpresa, pagAntiguedadEmpleo, " _
        & " pagSueldo, pagEstadoCivil, pagNombreConyugue, pagConyugueDocumento" _
        & " pagActLaboralConyugue, pagEmpresaConyugue, pagFechaNacConyugue, pagDomicilioPropiedad " _
        & " pagTipoPropiedad, pagTipoTitularidad, pagAutomovil, pagPatenteAutomovil, pagGrupoFamiliar" _
        & " pagPrestamosAnteriores, pagReferenciasPersonales, pagTelReferencia, pagObservaciones" _
        & " pagNacionalidad, pagTpdCodigo, pagEstCodigo) " _
        & " values (" & m_pagNumero & ", '" & m_pagApellido & "', '" & m_pagNombre & "', '" _
        & m_pagDomicilio & "', '" & m_pagBarrio & "', '" & m_pagLocalidad & "', '" & m_pagDocumento & "', '" _
        & m_pagCUIT & "', " & m_pagJuicio & ", '" & m_pagActLaboral & "', '" & m_pagEmpresa & "', '" _
        & m_pagLegajo & "', '" & m_pagFechaNacimiento & "', '" & m_pagDomicilioEmpresa & ", '" _
        & m_pagTelefonoEmpresa & "', " & m_pagAntiguedadEmpleo & ", " & m_pagSueldo & ", '" _
        & m_pagEstadoCivil & "', '" & m_pagNombreConyugue & "', '" & m_pagConyugueDocumento & ", '" _
        & m_pagActLaboralConyugue & "', '" & m_pagEmpresaConyugue & "', '" & m_pagFechaNacConyugue & "', '" _
        & m_pagDomicilioPropiedad & "', '" & m_pagTipoPropiedad & "', '" & m_pagTipoTitularidad & "', '" _
        & m_pagAutomovil & "', '" & m_pagPatenteAutomovil & "', '" & m_pagGrupoFamiliar & "', '" _
        & m_pagPrestamosAnteriores & "', '" & m_pagReferenciasPersonales & "', '" & m_pagTelReferencia & "', '" _
        & m_pagObservaciones & "', '" & m_pagNacionalidad & "', " & m_pagTpdCodigo & ", " & m_pagEstCodigo _
        & ")"
    
    
    rsPagador.Open strInsert, cn, adOpenStatic, adLockPessimistic
        
        
    If rsPagador.Status = adStatusErrorsOccurred Then
        mensaje = "No pudo crease el registro"
        crearPagador = False
    Else
        mensaje = "Pagador creada correctamente"
        crearPagador = True
        
    End If
    rsPagador.Close
    
End Function


Public Function modificarPagador(Optional ByRef mensaje As String) As Boolean
    Dim strUpdate As String
    Dim strUpdate2 As String
    
    strUpdate = "update pagador set " _
    & " pagNumero= " & m_pagNumero & ", pagApellido='" & m_pagApellido & "', pagNombre='" & m_pagNombre _
    & "', pagDomicilio= '" & m_pagDomicilio & "', pagBarrio='" & m_pagBarrio _
    & "', pagLocalidad='" & m_pagLocalidad & "', pagDocumento='" & m_pagDocumento _
    & "', pagCUIT='" & m_pagCUIT & "', pagJuicio=" & m_pagJuicio & ", pagActLaboral='" & m_pagActLaboral _
    & "', pagEmpresa='" & m_pagEmpresa & "', pagLegajo='" & m_pagLegajo _
    & "', pagFechaNacimiento=" & m_pagFechaNacimiento & ", pagDomicilioEmpresa=" & m_pagDomicilioEmpresa _
    & ", pagTelefonoEmpresa=" & m_pagTelefonoEmpresa & ", pagAntiguedadEmpleo=" & m_pagAntiguedadEmpleo _
    & ", pagSueldo=" & m_pagSueldo & ", pagEstadoCivil=" & m_pagEstadoCivil _
    & ", pagNombreConyugue=" & m_pagNombreConyugue & ", pagConyugueDocumento=" & m_pagConyugueDocumento _
    & ", pagActLaboralConyugue=" & m_pagActLaboralConyugue & ", pagEmpresaConyugue=" & m_pagEmpresaConyugue _
    & ", pagFechaNacConyugue=" & m_pagFechaNacConyugue & ", pagDomicilioPropiedad=" & m_pagDomicilioPropiedad _
    & ", pagTipoPropiedad=" & m_pagTipoPropiedad & ", pagTipoTitularidad=" & m_pagTipoTitularidad _
    & ", pagAutomovil=" & m_pagAutomovil & ", pagPatenteAutomovil=" & m_pagPatenteAutomovil _
    & ", pagGrupoFamiliar=" & m_pagGrupoFamiliar & ", pagPrestamosAnteriores=" & m_pagPrestamosAnteriores _
    & ", pagReferenciasPersonales=" & m_pagReferenciasPersonales _
    & ", pagTelReferencia=" & m_pagTelReferencia & ", pagObservaciones=" & m_pagObservaciones _
    & ", pagNacionalidad=" & m_pagNacionalidad & ", pagTpdCodigo=" & m_pagTpdCodigo _
    & ", pagEstCodigo=" & m_pagEstCodigo _
    & " where pagCodigo =" & m_pagCodigo

    rsPagador.Close
    rsPagador.Open strUpdate + strUpdate2, cn, adOpenStatic, adLockPessimistic


    If rsPagador.Status = adStatusErrorsOccurred Then
        mensaje = "No pudo modificar el registro"
        modificarPagador = False
    Else
        mensaje = "Pagador modificado correctamente"
        modificarPagador = True
        
    End If
    rsPagador.Close

End Function

Public Sub abrirPagadorParticular()
    If rsPagador.State <> adStateClosed Then
        rsPagador.Close
    End If
    rsPagador.Open "delete * from pagador where pagCodigo = " & m_pagCodigo, cn, adOpenKeyset, adLockOptimistic
    
End Sub

Public Sub cerrar()
    If rsPagador.State <> adStateClosed Then
        rsPagador.Close
    End If
End Sub
